home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / opusftp / install_opusftp < prev    next >
Text File  |  1995-08-10  |  3KB  |  116 lines
  1. ; Script to Install OpusFTP Demonstration module to pre-existing 
  2. ; Directory Opus 5.11 system.
  3. ; Developed by Andrew Dunbar © GPSoftware, Brisbane 1995
  4. ; $VER: Install_OpusFTP 1.0 8.08.95
  5. ;
  6. ;
  7.  
  8. (if
  9.     (NOT(exists "DOpus5:" (noreq)))
  10.     (
  11.         (abort        "There is no DOpus5: assign\n"
  12.                     "on your machine - please install\n"
  13.                     "Directory Opus 5 first"
  14.         )
  15.     )
  16.     (if    (askbool
  17.             (prompt    "\nDirectory Opus 5 is present on your system\n"
  18.                 "You are therefore able to use OpusFTP\n"
  19.                 "Do you wish to proceed with the installation?"
  20.                 )
  21.             (help    "The installer has determined that you already "
  22.                 "have a copy of Directory Opus 5 installed "
  23.                 "on your system.  OpusFTP will create a directory "
  24.                 "named 'FTP' in Opus's directory where OpusFTP "
  25.                 "will be installed"
  26.             )
  27.         )
  28.         (
  29.             (makeassign "OpusFTP" "")
  30.  
  31.             (makedir "DOpus5:FTP")
  32.  
  33.             (if    (exists    "DOpus5:FTP/ftp.config"    (noreq))
  34.                 (set configname    "DOpus5:FTP/ftp.config_sample")
  35.                 (set configname    "DOpus5:FTP/ftp.config")
  36.             )
  37.  
  38. ;            (message "config name: " configname )
  39.  
  40.             (copyfiles
  41.                 (prompt "Installing sample config file")
  42.                 (help   "The configuration file lets you "
  43.                     "set default options for FTP connections "
  44.                     "as well as the log window or file "
  45.                     "and the FTP address book")
  46.                 (source "OpusFTP:ftp.config")
  47.                 (dest   "Dopus5:ftp")
  48.                 (newname configname)
  49.                 (confirm)
  50.             )
  51.  
  52.             (copyfiles
  53.                 (prompt "Installing AmigaGuide documentation")
  54.                 (help    "This is the instructions on how to "
  55.                             "set up and use OpusFTP")
  56.                 (source "OpusFTP:")
  57.                 (dest   "DOpus5:FTP")
  58.                 (pattern "OpusFTP.guide#?")
  59.                 (confirm)
  60.             )
  61.  
  62.             (set romver (/ (getversion "exec.library" (resident)) 65536 ))
  63.  
  64.             (if    (>= romver 39)
  65.                 (set viewer "MultiView")
  66.                 (set viewer "AmigaGuide")
  67.             )
  68.  
  69.             (tooltype
  70.                 (dest "DOpus5:FTP/OpusFTP.guide")
  71.                 (setdefaulttool    viewer)
  72.             )
  73.  
  74.  
  75.             (copylib
  76.                 (prompt "Installing ftp.module")
  77.                 (help    "This is the actual Directory Opus module "
  78.                     "which enables you to connect your Amiga "
  79.                     "to the internet and access files as easily "
  80.                     "as if they were on your own hard drive")
  81.                 (source "OpusFTP:Modules/ftp.module")
  82.                 (dest   "DOpus5:Modules")
  83.                 (confirm)
  84.             )
  85.  
  86.             (copyfiles
  87.                 (prompt "Installing sample buttons")
  88.                 (help    "These are some example button banks "
  89.                     "for controlling the operation of OpusFTP. "
  90.                     "Both text buttons and image buttons are included")
  91.                 (source "OpusFTP:Buttons")
  92.                 (dest   "DOpus5:Buttons")
  93.                 (all)
  94.                 (confirm)
  95.             )
  96.  
  97.             (copyfiles
  98.                 (prompt "Installing button images")
  99.                 (help    "These are the images for the sample image buttons")
  100.                 (source "OpusFTP:Images")
  101.                 (dest   "DOpus5:Images")
  102.                 (all)
  103.                 (confirm)
  104.             )
  105.  
  106.             (message    "If you are running Directory Opus now\n"
  107.                     "you must quit and restart it\n"
  108.                     "or you will not be able to use\n"
  109.                     "OpusFTP"
  110.             )
  111.  
  112.             (makeassign "OpusFTP")
  113.         )
  114.     )
  115. )
  116.